﻿Imports Clases
Public Class frmMesas

    ''' <summary>
    ''' Cuando se cargar el formulario 
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub frmMesas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Text &= usuarioActivo.Nombre
        AddHandler misMesas.ErrorMesa, AddressOf misMesas_ErrorMesa
    End Sub
    ''' <summary>
    ''' Evento cuando no se introduce algún campo
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub misMesas_ErrorMesa(sender As Object, e As EventArgs)
        MessageBox.Show("Por favor introduza todos los campos correctamente", "ATENCIÓN")
    End Sub
    ''' <summary>
    ''' Añadimos una nueva mesa
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnAñadir_Click(sender As System.Object, e As System.EventArgs) Handles btnAñadir.Click
        Me.ErrorProvider1.Clear()
        If txtNombre.Text = "" Then
            Me.ErrorProvider1.SetError(txtNombre, "Introduce un nombre")
        Else
            Me.ErrorProvider1.SetError(txtNombre, "")
        End If
        If txtCapacidad.Text = "" Then
            Me.ErrorProvider1.SetError(txtCapacidad, "Introduce un nombre")
        Else
            Me.ErrorProvider1.SetError(txtCapacidad, "")
        End If
        If txtDescripcion.Text = "" Then
            Me.ErrorProvider1.SetError(txtDescripcion, "Introduce un nombre")
        Else
            Me.ErrorProvider1.SetError(txtDescripcion, "")
        End If
        If txtNombre.Text <> "" AndAlso txtCapacidad.Text <> "" AndAlso txtDescripcion.Text <> "" Then
            Dim men As String = misMesas.Añadir(New Mesas(txtNombre.Text, txtDescripcion.Text, Integer.Parse(txtCapacidad.Text)))
            If men <> "" Then
                MessageBox.Show(men, "ATENCIÓN")
            Else
                txtNombre.Text = ""
                txtDescripcion.Text = ""
                txtCapacidad.Text = ""
            End If
        End If
    End Sub
    ''' <summary>
    ''' Sólo admite teclear dígitos
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub txtCapacidad_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCapacidad.KeyPress
        Const NUM = "0123456789" & ControlChars.Back
        If Not NUM.Contains(e.KeyChar.ToString) Then
            e.KeyChar = ""
        End If
    End Sub
End Class